home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / comsh17.arc / REPLY.CSH < prev    next >
Encoding:
Text File  |  1985-06-03  |  1.0 KB  |  48 lines
  1. : reply <file> <mesage#> <to> <sect>
  2. : ----------------------------------
  3. : post a reply to message <message#>, address it to <to> in section <sect>
  4. : if message cannot be found.
  5. :
  6. : We assume we're at the function prompt
  7. if !same $$ 5 badsyntax
  8. pattern reset
  9. pattern 0 "message!" ; : I can't find that message!
  10. pattern 1 "1:"
  11. send "RE "
  12. send $2
  13. send \m
  14. wait 120 ; : hang around for 2 minutes at most!!
  15. if match -1 timeout ; : oops!
  16. if match 1 sendit
  17. pattern reset
  18. pattern 0 "o:" ; : as in to:
  19. send l\m
  20. wait 120
  21. if match -1 timeout
  22. pattern 0 "ubject:"
  23. send $3
  24. send \m
  25. wait 120
  26. if match -1 timeout
  27. pattern 0 "1:"
  28. send "Reply to #"
  29. send $2
  30. send \m
  31. wait 120
  32. if match -1 timeout
  33. : sendit
  34. sendf $1
  35. pattern 0 "option"
  36. send \m
  37. wait 120
  38. if match -1 timeout
  39. pattern 0 "unction:"
  40. send s
  41. send $4
  42. send \m
  43. wait 120
  44. if match 0 end
  45. : timeout
  46. set timeout TRUE
  47. : end
  48.